home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / juicebar / 00826.ls < prev    next >
Encoding:
Text File  |  1995-04-07  |  241 b   |  14 lines
  1. on mouseUp
  2.   global Rocket
  3.   set Rocket to Rocket + 1
  4.   if (Rocket mod 3) = 0 then
  5.     go("Rocket.Pos1a")
  6.   end if
  7.   if (Rocket mod 3) = 1 then
  8.     go("Rocket.Pos1b")
  9.   end if
  10.   if (Rocket mod 3) = 2 then
  11.     go("Rocket.Pos1c")
  12.   end if
  13. end
  14.